define i:integer;
define k:word;
define j:word;
define g:word;
define f:word[10];

begin
  j=1
  prints("Введите Xmax=")
  g=con
  prints(""L)
  prints("Введите Xexit=")
  k=con
  prints(""L)
  while j<>0 do
    begin
      for i=1 to g  do
        begin
          if i=k then
            begin
              j=0
              prints("Ура работает ")
           end
          printw(i)
          prints(""L)
        end
    end
  f[2]=con
  prints(""L)
  f[3]=con
  printw(f[2]) prints(""L)
  printw(f[3]) prints(""L)
  printw(f[2]) prints(""L)
End.